      subroutine ENDFORT
      Call DoMenu("File","Quit")
	  return
	  end